home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / tool / tmsuper / tz.bas < prev    next >
Encoding:
BASIC Source File  |  1994-11-16  |  4.2 KB  |  138 lines
  1. 10  CLS:SCREEN@ 0:MOUSE 0:PLAY OFF
  2. 20  DIM NNN%(9000):DIM FMM%(23):DIM FMMM%(12)
  3. 30  SYMBOL (10,10),"音楽を試聴する               BOXファイル作成",1,1,1
  4. 40  SYMBOL (10,40)," ボタン左 ←       マウス       → ボタン右",1,1,1
  5. 50  FLG=0:WHILE FLG+MOUSE(2,1)=0:FLG=MOUSE(2,0):WEND
  6. 60  IF FLG=-1 THEN 120
  7. 70  '
  8. 80  LOAD@ "E:\TZ.SND",NNN%    'ＳＮＤファイルを指定してね
  9. 90  S=NNN%(6)+NNN%(7)*65536+32
  10. 100  S=INT((S+1)/2)
  11. 110  '
  12. 120  LOAD@ "E:\TZ.FMB"        'ＦＭＢファイルを指定してね
  13. 130  NNN%(3)=5                '音色番号の何番まで取り込むか指定してね
  14. 150  '
  15. 160  IF FLG=-1 THEN 240
  16. 170  '
  17. 180  '
  18. 190  FOR X=1 TO NNN%(3)-1
  19. 200  VOICE COPY X+1,FMM%
  20. 210  GOSUB *FMSET : S=S+13
  21. 220  NEXT
  22. 230  '
  23. 240  DIM M$(3,3,2),MR$(2),ML%(2)
  24. 250  '
  25. 260  '一曲目　『ピンクのボディコンのテーマ』
  26. 270  M$(0,0,0)="@2%LV3O3"
  27. 280  M$(1,0,0)="(C8C8)3C8D8(D8D8)3D8C8(C8C8)4(C8C8)4"
  28. 290     ML%(0)=3
  29. 300  M$(2,0,0)="(C8C8)3C8D8(D8D8)3D8C8(C8C8)4"
  30. 310  M$(3,0,0)=""
  31. 320     MR$(0)="R4."
  32. 330  '
  33. 340  M$(0,1,0)="@3%RV3O4"
  34. 350  M$(1,1,0)="(R8C8R8C8R8C8R8C8)4"
  35. 360  M$(2,1,0)="(R8C8R8C8R8C8)4"
  36. 370  M$(3,1,0)=""
  37. 380  '
  38. 390  M$(0,2,0)="@4%CV10O5"
  39. 400  M$(1,2,0)="R4E8G4E8G8A8A8G8G8F8F8G8E1.R2."
  40. 410  M$(2,2,0)="R4E8G4E8G8A8A8G8G8F8F8G8E1.R2."
  41. 420  M$(3,2,0)=">G8&G2F8E8F8F2G2A8&A2G8F8G8G2A2B8&B2A8G8A8A2B2>C2.R2(C8)3<<"
  42. 430  '
  43. 440  M$(0,3,0)="@4%RV8O4"
  44. 450  M$(1,3,0)="R1R1R4.G2E2."
  45. 460  M$(2,3,0)="R1R1R4.G2G8G8G8>C4<"
  46. 470  M$(3,3,0)=""
  47. 480  '
  48. 490  '二曲目　『白いワンピースのテーマ』
  49. 500  M$(0,0,1)="@4%CV6O5"
  50. 510  M$(1,0,1)="(R2G8R8C8R8)2R1.G8R8C8"
  51. 520     ML%(1)=4
  52. 530  M$(2,0,1)=""
  53. 540  M$(3,0,1)=""
  54. 550     MR$(1)="R4."
  55. 560  '
  56. 570  M$(0,1,1)="@5%LV7O5"
  57. 580  M$(1,1,1)="R2E8F8G4"
  58. 590  M$(2,1,1)=""
  59. 600  M$(3,1,1)=""
  60. 610  '
  61. 620  M$(0,2,1)="@5%CV7O4"
  62. 630  M$(1,2,1)="E8F8G4R2E8F8G4R2E8F8G2A2G4R2"
  63. 640  M$(2,2,1)=""
  64. 650  M$(3,2,1)=">R4C4R8C8<B4.R8B4R8B8A4.R8G4A4G4B4>C4.R2R8C4R8C8<B4.R8B4R8B8A4.R8G4A4G4B4>C4.<"
  65. 660  '
  66. 670  M$(0,3,1)="@5%RV7O5"
  67. 680  M$(1,3,1)="R1.E8F8G4"
  68. 690  M$(2,3,1)=""
  69. 700  M$(3,3,1)="" 
  70. 710  '
  71. 720  '三曲目　『碧い人魚のテーマ』
  72. 730  M$(0,0,2)="@3%LV3O3"
  73. 740  M$(1,0,2)="R4.(C16C16)3R4.(C16C16)3R4.(C16C16)3"
  74. 750     ML%(2)=3
  75. 760  M$(2,0,2)="R4.(C16C16)3R4.(C16C16)3R4.(C16C16)3"
  76. 770  M$(3,0,2)=""
  77. 780     MR$(2)="R4."
  78. 790  '
  79. 800  M$(0,1,2)="@5%CV6O4"
  80. 810  M$(1,1,2)="(E16R16E16R16E16E16R16E16)2(F16R16F16R16F16F16R16F16)2G4"
  81. 820  M$(2,1,2)="(E16R16E16R16E16E16R16E16)2(F16R16F16R16F16F16R16F16)2G4"
  82. 830  M$(3,1,2)=""
  83. 840  '
  84. 850  M$(0,2,2)="@5%CV7O4"
  85. 860  M$(1,2,2)="(C16R16C16E8E16F16R16F16G16R16G16)3C16R16C16E8E16F16R16F16G16R8"
  86. 870  M$(2,2,2)="(C16R16C16E8E16F16R16F16G16R16G16)3C16R16C16C16C16C16"
  87. 880  M$(3,2,2)=""
  88. 890  '
  89. 900  M$(0,3,2)="@4%RV8O6"
  90. 910  M$(1,3,2)="(R4.C16G16E16F8R16)3"
  91. 920  M$(2,3,2)="(R4.C16G16E16F8R16)3"
  92. 930  M$(3,3,2)=""
  93. 940  '
  94. 950  IF FLG=-1 THEN 1140
  95. 960  '
  96. 970  FOR I=0 TO 2:M$(3,0,I)=MR$(I):NEXT
  97. 980  FOR I=0 TO 2
  98. 990   NNN%(I)=S:NNN%(S)=ML%(I)-1:S=S+1
  99. 1000   FOR J=0 TO 3
  100. 1010     FOR K=0 TO 3
  101. 1020      M$(K,J,I)=M$(K,J,I)+" Z":N=KLEN(M$(K,J,I),1)
  102. 1030      FOR F=1 TO N STEP 2
  103. 1040        MM$=MID$(M$(K,J,I),F,2):IF MM$="Z" THEN MM$=" Z"
  104. 1050        NNN%(S)=CVI(MM$):S=S+1
  105. 1060      NEXT
  106. 1070     NEXT
  107. 1080   NEXT
  108. 1090  NEXT
  109. 1100  '
  110. 1110  S=S-1:DIM HAAI%(S)
  111. 1120  FOR I=0 TO S:HAAI%(I)=NNN%(I):NEXT
  112. 1130  SAVE@ "D:\TMENUEX\TM.BOX",HAAI%        'ＢＯＸファイルを指定してね
  113. 1140  '
  114. 1150  IF FLG=0 THEN 1300
  115. 1160  CLS
  116. 1170  SYMBOL (10,10),"次の曲                                  終了",1,1,1 
  117. 1180  SYMBOL (10,40)," ボタン左 ←       マウス       → ボタン右",1,1,1
  118. 1190  A=0:KURI=0
  119. 1200  WHILE KURI=0 
  120. 1210                     PLAY M$(0,0,A),M$(0,1,A),M$(0,2,A),M$(0,3,A)
  121. 1220                              PLAY ,MR$(A)
  122. 1230 FOR B=0 TO ML%(A)-1:PLAY M$(1,0,A),M$(1,1,A),M$(1,2,A),M$(1,3,A):NEXT
  123. 1240                     PLAY M$(2,0,A),M$(2,1,A),M$(2,2,A),M$(2,3,A)
  124. 1250                              PLAY ,M$(3,1,A),M$(3,2,A),M$(3,3,A)
  125. 1260    KURI=MOUSE(2,1):IF KURI+MOUSE(2,0) <> 0 THEN 1280
  126. 1270    IF PLAY(0)=-1 THEN 1260 ELSE 1220
  127. 1280    PLAY OFF:WHILE MOUSE(2,0)=-1:WEND:A=A+1:IF A > 2 THEN A=0
  128. 1290  WEND 
  129. 1300  MOUSE 5:PLAY OFF:END
  130. 1310  '
  131. 1320 *FMSET
  132. 1330  FOR N=0 TO 12:FMMM%(N)=FMM%(N+4):NEXT
  133. 1340  M=0
  134. 1350  FOR N=0 TO 12
  135. 1360  NNN%(S+N) = FMMM%(M):M=M+1
  136. 1370  NEXT
  137. 1380  RETURN
  138.